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BEGIN 00010000 
% COPY/CANDE SOURCE PROGRAMs REVISED 5*72 (SHM) 00010100 
COMMENT! * TITLE? 85500/85700 MARK XLV SYSTEM KELEASE. “ae * 90010110 
* FILE 10% SYMBOL/COPY TAPE ID? SYMBUL2/FILEOOO . 00010111 
* THIS MATERIAL IS PROPRIETARY Tu BURKOUGHS CORPORATION * oo010112 
* AND. IS NOT TO.BE REPROOUCED, USEOs UR DISCLOSED 90010113 
* EXCEPT In ACCURDANCE WITH PRUGRAM LICENSE OR UPON * oouloi14 
* WRITTEN AUTHORIZATION UF THE PaTENT OiIVISIUN OF * 00010115 
* BURROUGHS. CORPORATIONs UETROITs MICHIGAN 4824200000 #9001011. 
* * 00010117 
* COPYRIGHT (C) 1971» 1972 HURROUGHS CORPORATION 00010118 
ocala th ye Oy RADU ACES: UARBOCO SE 0 i og cosa d Mess wi ieelii n ponte Gene, Aino We OOUTOTA Ce wun 
REAL COMMONS 00010200 
SAVE ARRAY ACO!30)sBUFFER{sHUFFER2(03 30093 00010300 
SAVE ARRAY N(O?30)sPARAMS(OS10]sDISKROWSEO#19]3 09010400 | 
REAL APTR» ASTART» BASE» ENDRESEQ, EUFPTR» ERRSEGs FID» 00010500 
FILETYPE, HDRO» HRANGE» I» INCREMENT» Je LINE? 00010600 
LRANGE» |RECs MF IDs NCTs NPARAMS»s NPTR» OUIPUTNAMES OUTSEQ? 00010700. 
PC» PREVSEQ* PSIZE* RESULT1» RESULT2s RPRe KSIZE» SEQLUCs 00010800 
SPB» SPR» SRCESEGs STARTRESEQs USER» whAd 00040900 
BOOLEAN BRAAKs CONCISEs DaATAFILEs ERROR, FURMT» MAKETAB» OKs 00011000 
PRINTER» PUNCH» RESEQ, SEQCHECKs SFLG» WURKFILES 00011100 
LABEL ERRER*EXITS 00011200 
DEFINE EOFMARK=100000C00#» MASK=3"200Q00000U"# 00011300 | 
DEFINE MSGSIZE=CCAPTR.«LC 33215 ]"ASTARTIXB+APITRel 30231) 83 oo0l1 400 
FILE QUT NEWTAB ISK SERIAL [20230 ] (2-30*300*5AVE 1)3 0001150C 
FILE OUT PRNT \\ @ cae17: a onl? e7 godie00 §= FILE OT 
FILE OUT PNCH 0 €2s10)3 00011700 
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REAL NAM1»sNAM2eNAM33 ARRAY AREAC*]3 COMMUNICATE (™ 21)3 00012300 
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STREAM PROCEOURE QUTCCNVCAsN*SUPRES)§ VALUE NeSUPRESS ee 00012500 . 
FGI IIIS III ISI ISI IIIS I IGS ISIS IS IOI SOI I eiiet ioe iat #00012600 
BEGIN 0001270¢ 
SItSLOC NJ DIPEAS DSPSRDE Ca cee meanest ee we tt eee 0012800. i Pi pete eco 
SUPRES(DIiaD1"83 OStS7F ILL): 00012900 
END STREAM PROCEDURE OUTCUNV3 009013000 
Ri III IO IIIS GUIDO IIIOIIOUICTIUOIUIOI iii oiitontonion se 00013100 . 
STREAM PROCEDURE MQVE(N2AsB)3 VALUE N3 00013200 
BEGIN SIt=a; DIt=B; OStsn WOSs EWS 00013300 
co OI OI IOI II OI III IO IOI OI IO I IOI tee iO te i ete tee tee tee OOOLBGOO ce eee eee ee ee ene 
REAL STREAM PROCEDURE ADDRESS(A)3 00013500 
BEGIN SIt#as ADDRESS%sS13 ENDS 00013600 
A OI OO I OOO Oi Ik ONTO OI Wot i Wold ee ae ete eek OO013700. _ b 
REAL STREAM PROCEDURE INPCONVCA)3S 00013800 
BEGIN SI8=as OIt2lLOc INPCONV; DS&SeB0CT; ENDS 00013900 


STREAM PROCEOURE PLACETYPECFILETYPE*FIILI3 VALUE FILETYPES 00014100 
en ee re nny tn the nae een am ee nee tenes neyeCoal v2 0c 
. BEGIN Sor eat it has pe Deane PIE IS, ibe SMe ala sdlien Say Jo te, eM eeet h oe Deen cit nes OOO TM SOO ® trp hah: ei oh 8 
SI¢*sFII3 SItsSJ= 243 DrisLoc FIIns OStenys; 00014400 
STssFlIQs aCSlexSI+56)3 Ol ssLOc FIILZ OSsswOss 00014500 
DIISETILS OLSSD1+383 Stietoc FILETYPE Sit=Si+73 DStecHRe —OOVIHSBOO 
END STREAM PROCEDURE PLACETYPE; 00014700 
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@ BEGIN 00015100 
Meee SCOMMUNICATEC#1402 0 Dn 7 7 ” qovib20o0 ... ee en es a 
4 -BRAAKSSBOOLEAN(T)S % MCP RETURNS 1 IF SREAK OCCURRED 00015300 
@ | APTRISASTARTS 00015400 
Me es tee END; bose a ae dee ad cee. SE eta abcess. Ruslueh ti aaratenege ahaa: 00015500 Se ae te eee 
; BI II III IOI IIOIOIIIIOIIIISIUIGIOIISI IOI IO binning #4#00015600 
Qo: STREAM PROCEDURE PLACESTRINGCAPTRe STRINGS CONVERTI4 VALUE STRINGsCONVERTS00015700 
FIA I IOI IOI IOI IOI IOI II IIIS DIINO Oe ide # 4400015800 
BEGIN LOCAL SV3 LABEL EXIT3 00015900 
eo STtSLOC STRINGS DISZAPTR$ OLssDI+93 Dlssoc3s SVispDI3 00016000 
Be oe Rat _CONVERTCOSS s8DECs DI stsple8s DSts7FILus _ sats ate diate Cen N aa wees witie ae ted IOS, sth. 6. de pe mitecndte Sateen acs eae 
0 SrssSV3 DItsSVs CIF SCS" " THEN Sys=Sy+y ELSE USt=SCHR)3 00016200 
eu JUMP OUT TO EXIT)3 00016300 
Caan ome S1t=Sl+13 DSt=7CHR3 . _ sodetpnals tdi dice frctedad Sate ¢ OOO LEO Bocce 53 ee Sas 
@. OSs=LIT™ “3 SVteaDIs ST:sLOC Svs Ol s2APTR$ DStBwOS3 00016600 
ue )~Sti END STREAM PROCEDURE PLACESTRINGs Sie, io Be Achar np RESID, 4.9, mated heuitecarne SOO VOLO sc, » a: nade degheee eee, 
“ FIT TOI III IIIS IOIIDIDIGIUIGIIIS OGIO IOI IO III IIIS iinet 00016800 
eo. STREAM PROCEDURE MESSAGECAPTR»sTYPE)$ VALUE TYPES 00016900 
Te TR II I II IOI II ICICI SIIUIIUIIUIGIDIUIUIIO OGIO IO IDC iene to 00.017000 
i BEGIN LOCAL SVS LABEL LOsLioL2eL sel 4eLSeEXITS 00017100 
@- DItsAPTR$ DItsD1+53 OI2s0C3 com t7200 
(see CLMBCIeTYPES | be inet nM arabe tnt Ble Mit Gi, .gthleae cage eee Se ec MOE FO Oi, 14 ok eA, bag ‘ects A Se 
= GO 10% GO L135 GO L2s GO 435 GO L4é Go L5; 00017400 
@« LO’ % TYPE=Q» ERROR FCR NON@=STANUARD RECORD SIZE 00017500 
a ennere . OStS37LIT"ERRORE. FILE RECORDS. ARE NON“STaNDARUS"S 200... we €0017600... .. Pe a Ree ee eee 
a GO EXIT3 00017700 
@* Li’ % TYPES1s» NUMBER CF RECQROS COPIED 00017800 M 
7 DS taQ@4LELT"RECORDS COPL ST..RECURD COPIED SME ee OOO IQ BSL 
i. GO EXIT; 00018000 
0» L2* ¥ TYPE=2» SEQUENCE ERRO 00018100 
itgecms 4 OStSLOLITNSEGUENCE ERRORS 82 i0. tec cee) 2 ceed Sous wl Saente meats cemmcsealei ae DOOLB200.Jn6 occ, eo lodseen ce 
a GO EXIT: . - 00018300 
eo. L3$ % TYPE=3s HEADING FOR PRINTER OUTPUT 00018400 
Br Bias! brtscaue at icaa Ge MOL A Mee ed eattase lay Whig darned tothe tad Aum ihe lle. daneieteaian phage. 2 wiht oe te OOULES OO: 
ia) La? % TYPE=4s HEADING FOR CARO PUNCH OUTPUT 00018600 
eo» OSt=6LIT"FILE! "3 | pea Toe 
fe Pata NE Rett AA EMT we, Une isos indy, 5.5 Suess sitet « oy celunaeats eb Meets, ay, tak tor age eared cnet OO PB BOO 
M L5% % TYPES5e SYSTEM ERROR 00018900 
@\ DSt=30LIT"SYSTEM ERROR, FILE NOT COPIED."3 00019000 
ee se GO TO EXITS. RAs od, cath aise uintine aisle once oct se MR le Reais Se cela oe, OSA OO thas st ce! eeu dnesue oi 
“ EXIT: 00019200 
@: SVt=O01l# SIs=LUc Svs DI:=saPTR3 0St=woS3 00019300 
"meee nen nvuvGND STREAM PROCEDURE MESSAGES ss —, 90019400 
a Ott Wee eee RET EEN REN ee eek ek ee he eee eee OO019500 
@. REAL PROCEDURE TIMECONV3 : 00019600 
PL III III GI GI III III UICIOIUIIICIJUIGIOIIOIIOIOIOIDICIOIDIJOI GiGi cincomerineein00019700 
BEGIN 00019800 
INTEGER HRSsMINs TIMS 00019900 
REAL STREAM PROCECURE STCHeMeX)S = Q0020000 
BEGIN 00020100 
DISSLOC STS OL2tOl eis SLsFhs YSHF2 DECS OSPSL ITE"; 00020200 
ce SEN SMS OSERADECS Slt exes STisSitos OSeeeCHRs UZ00- 
END STREAM ST$ 0n020400 
TIM $= TIMEC1)3 00020500 
Eanes MRS $= TIM OV 2460008 Bet SS a a ee aN pe et OOOO OMe nh Lipo tetas 
MIN #2 (TIM DIV 3600) MOD 603 00020700 
TIM $# IF HRS GTR 11 THEN "PM" ELSE NAMM 00020800 
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@ 
| IF HRS LSS 1 THEN BRS t= 123 00021000 
@ TIMECONV t= STCHRS,»MIN,TIM)3 00021100 
Kou _.... END... TIMECONYS tall, « aap tecthuien tata Sesaneke oe Shite spieeheandd “ES rete OUP L200: 
q % We We ie eae ie eae ee i tok IOC io tok Boi k koto kik kik eee 00021300 
@ STREAM PROCEDURE REFCRMATCAsASEG)3 00021400 
Pc Se CES veggie AAEM Src. Pe vodeice i wlelts Cal wis Geverzinned taloyatcwan tat ot oe wipapaapatés acini bien Scteclochet. dh ee datorectss tatadmotea apart wet contd Oe LOG 
4 OLssAs OStHsi6LIt” "3 00021600 
e° STPTSASEQsS DISFAF DIFSOL+7$ YSPSSCHRSE DLt=OI78s OSPS7 FILL 00021700 
Oy ska, oc a END -STREAM.PRUCEDURE REFARMAT Io. ooo anes dilerurke auduicnatrdineiewSen cece anes DOUEL AOS... 
! Leta eee kee kee ke OI ek eke Ra Rae eae O0021900 
@: PROCEOURE EXPANDCA*RSIZE)$ VALUE RSI4ES REAL RSI4ES ARRAY AlOJs 00022000 
SII i ROR III IRI IO UII III IORI ICICI III OI CI OID IOI Bt HOI Wee WOO ide te te te Weak fee 0022400 cee 
a BEGIN oo0022200 
. SAVE ARRAY BLOIRSIZES3 00022300 
Menem oe vm DEFINE FICSSTR SSI 436 OLFSN1+5s SKIP BD pe ee OO0Z2Z400 
8 1SCIF SB THEN OS%sSET ELSE DStsRESETS SKIP SB) #3 00022500 
@ : DEFINE CTFsS[#=S1+53 SKIP 35pB3 OLltsD1+33 00022600 
Sige fans: I5CIF SB THEN DStsSET ELSE DSt=RESETS SKIP SB)RR OU oggeZe700 
ie STREAM PROCEDURE CHANGEVECTORS(CAG)3 00022800 
Y BEGIN LOCAL MUMA»MOMB; 00022900 
OB athe ah itea SI#SLOC ASJ.DISSLOC. mMOMaA; FIcs ; fe pt ai ge emngtendidnlon, ats as OOS SOOG o6.:, 
“i STlt=,0C Bs DIsts_0C MUMBs FIC; 00023100 
@- STssL0C MOMB$ GISS8LOC A} CTFS | 00023200 
Pin, 36 .. SI&sLOC MOMAS DIts_oc BsucTEs. 2 ans Oontigeee tose eed uae co. ce DOO2 3200242 
- SISsLUC BS DIsS=MOMAS OSt=wDS? 00023400 
@» SIt=LOC A} DLlt=vOmBs DSt=w0S3 00023500 
PN cs tieoeta ds END. STREAM..PROCEDURE CHANGEVECTORSS 00 te te 09023400... 
CHANGEVECTORS(A»B); aad hel 
@* END PROCEDURE EXPANDs 00023800 
{TET STITTOST SCAT CCE T OCT TUTTE TELOLLST SALTS LETTLT CETTE TELE TTT TET TT TTT PET Tn Sodeeh, Chait ons 
pe PROCEDURE PARITYERRURCRECORD)3 VALUE RECURDs REAL RECORD: 00023815 
@ re Fa ae RII IO IOI III IOI III III IOI I io iconic 00023820 
rai tN IN Sh ele ht a ce cel ae Ol ag nl ae ere OO OAS gi at Ses cio 
i ® CALLS ON ALGOL*READ INTRINSIC TU OBTAIN PAR"NO LABEL MESSAGE 00023830 
@ % SO THAT "HELP/DISK" PROGRAM WILL BE CALLED 00023835 . 
PF ee ew FILE DISK DISK RANDOM C2eRPBsHDROe (ISS 15 DF O0023984O 
ia FILL DISK WITH MFIDeFIDS 00023045 
@» DO BEGIN 00023850 
ee, READCOTSKCRECORD I sRPBsAL IIS RECORDSSRECORUSI3 = 0023855 
iad END UNTIL FALSES 00023860 
@~ END. PROCEDURE PARTTYERRORS 00023865 
PO ee ARI RII IOIUIDIGIIUIIUIGIIOIDIDIGIDIDIIOIDIIIOII IU III i SOT a IO Oi ete ton 6400023900 0 
Ho PROCEDURE DISKIQC BUFF sSIZE»DISKADDRe RESULT» MASK eNATE); 00024000 
& all BOI OI III III IIIS IOI IIIS IGIGIGIOIGI III III II IG otc iciine 00024100 
wo VALUE BUFF es SIZEsDISKADDReMASKoNATES 00924200 
Is INTEGER SIZEsDISKADOR,BUFFS REAL RESULT»sMASK3 BOULEAN WATE 00024300 
@: BEGIN 00024400 
ms PROCEDURE TOREQUESTCFINALSTODESCsLOCATIONIA ORNS 
VALUE FINAL» JODESC,LOCATIONS REAL FINAL» [ODESC»LOCATIGN3 0av2e4600 
@ COMMUNICATECA1)3 00024700 
REAL UNI TsTINUsIOC,DOSKADRSS URN BOO 
REAL STREAM PROCEDURE ADRSCBUFF*DISKADDR)S VALUE BUFF *DISKADOR} 00024900 
e BEGIN | 00025000 
ee DESSLOC DISKADORS OL3SBUFFS = OStsapecs NASON 
SIt=LOC DISKADDRs OLt=LOe ADRSS OSt*sHUECI 00025200 
e END STREAM PROCEDURE ADRS; i 00025300 
IF BOOLEANC COSKACRSt=ADRSCBUFFeUISKAODR) )el1%5)) THEN : 00025400 | 
BEGIN UNIT##1935 TINU?=123 END ELSE BEGIN UNI T8818 TINU?#63 ENDS 00025500 
® IODtmBUFF&SIZELBt 3881038 00025600 
CCS IZE 96382103429) DIV 304512) C1889 I5I OIC S4tAZSLISTINULZI438573 00025700 
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e@ 
| 
' RESULT t=2ADDRESSCRESULT)3 00025800 
e INREQUESTC@IGD&3"347"(252402Bls UUs, RESULIRUNITLCI2tu2:6)]all2ta78ijd)3 00025900 
Spence =. UF WATE THEN WAILTCADDRESSCRESULT) *MASK)4 200.0 OU  O0G26000. 
\, END PROCEDURE DISKIOs 00026100 
@ Tk i II III II OIG TOG IG IU ai i iio hte ike 800026200 
Oe a BOOLEAN. PROCEDURE GETRECORDCRECORDs CEREAL), VALUE KECORDeCEREAL’ 00026300... 
© FoI RII II IGG III TOTO III I IO toe tte O00Z6400 
@: REAL RECORD} BOOLEAN CEREAL3 00026500 
Oe ee BEGIN cat beatilet itp iat OE ning Snr ctle Paces Sau MR Gna Peintles 5, nO OO Ul: Bicdns, Matas A tictta ea ta thea Pa 
; % READS DISK FILE. RECORD INTO ARRAY "AN 00026700 
eo. OWN REAL NEXTRECGRD*RMINI*RMINZ* RMAXL# RMAX2s ADRSLPADRS2$ 00026800 
Yee coe AREAL BUR PERS Sion hn co nat uit ww intima wamneree OOULZ69OO. 0. 
- DEFINE BUFFERSIZESNEXTRECORD#S % TEMPURARY STORAGE. oovz27000 
eo" OWN BOOLEAN SETTsVALID»OK1s0K23 00027100 
18 eee nee. BOOLEAN. FILL 42F ILL 23... Sent. oo 7 00027200 
re INTEGER OFFSETS 00027300 
M4 LABEL START» TRANSFERSEXITS 00027400 
acaba tenis, Be ” Spe sie bah 6s: o 46 Os 6:6 9 bw 8 Se SE 64 b 8 oe bles $00.4 NEw bowen eee ou basse ee os O0U2TSOO : 
Bi STREAM PROCEDURE MCVECN2 ASB) VALUE NoAS 00027600 
e " BEGIN LOCAL T3 00027700 
Me ee STEBLOC NS. SLasSIt6s O1a5L0C..14 Oltsul+7s UStsCHRE Oo. ggu27z749 
a SIt=AS DIS=B3 TC2CDS##32K05))5 DSt=N WOS3 00027720 
“ END STREAM PROCEDURE MOVES 00027730 
pe eee Se ee ee Ee Ce ee TT Te ee Ce eee ee er ee em yer em arene Cl Eek 1epon 
n PROCEDURE FILLBUFFERC BUFF eRECURUDsKE SUL Toi MINe KMAX)S VALUE BUFF »sRECORUZ 00027900 
a SESE REP ORC ET eee eee ee ee ee eee ere ee ee ee ee are are ere ere mrt 6) 18-4 <1 8104) 
ree REAL BUFF eRECORDeRESULT2RMIN@RMAXS ccc se eee §=6 COO BZBLCO 
2 BEGIN LABEL EXITS 00026200 
@ « REAL BLOCKeROWS 00028300 
| eee ee INTEGER SEGMENT sBLOCKADDRESS? Ss cae i eS Ee a OS BOO bos 3s. 
isi ROW? =(SEGMENT! s(BLOCK? =RECURD DIV RP&)xSPB) DIV SPR; 00028500 
@ IF ROW LE@ 19 THEN 00028600 
Meee IF (BLOCKADDRESS!*DISWKROWSEROWI) NEQ O TREN OO 00028700. . 
ey BEGIN . 00028800 
@ * BLOCK ADDRESS $=BLOCKADORESS+( SEGMENT MOD SPR)3 00028900 
naar . OTSKIOCBUFF, (RPBxRSIZE) »BLUCKADDRESSeRESULTAMASK*FALSE)3S -_-— sagQgug9 000. 
5a RMAXLS(NEXTRECORDSSCRMINS SBLOCKXRP Gy )4+RPH NYG 00029400 
@* GO TO EXITS 00029200 
Bilectcnpicalies ets. chet sel 225 atc t cnahy te «hon oa:tacies aati sin SAGE Kod tend cape opdelne, Dahyaeisttbesetusg DB cowioctc: Sings tO OO 
ar RESULTS =sMASKS RMIN¢ SRMAXi=eLs 00029400 
e ‘al EXIT? 00029500 
ore | END PROCEDURE FILL@UFFERA Ske. , Pa abla wale vitaun toda Ace bce cy AM OCRIOO Os: 0 904 
by Ramm emcee earner ane nate reer ens Oeeet need ereseeemerensensecepescneres ess 00UE9700 
@: IF NOT SETT THEN 00029800 
pedicel dadceo Min arse Dir ge Shales ns Tet 9. Fo an atthe te ea aie ts As ha OO OOM ee oy 
49 IF CBUFFERSIZEt=RPBxRSIZE) GTR 300 THEN. 00030000 
@ BEGIN 00030100 
5 eee OE ee IF BUFFERSIZE GTR 1023 THEN GO TO ERRER# 00030310 
EXPANOCBUFFER1*BUFFERSIZE)3 00030200 
@ EXPAND(BUFFER2*BUFFERSIZE)3 : 000303CC 
acai ST ean Seca oo ENDS. Eee ee ee A RE ee ral erate ea her tet 00030400 
“IF RSIZE GTR 29 THEN | . 00030500 
BEGIN 000306C0 


__EXPANDCASRSIZE+1)3 iene 2° 1 42 eae nee 


ACOI2=03 APTRISASTARTISADDKESS(ACLOI)3 00030800 

ENDS 00030900 
ScRMPE NTR RM ENG ES RMB WORK OS ND tied teil pas ae ty, Sh OOUIIOO0, ous k, 

SETTIeTRUES . 00031100 


ENO’ % OF INITIALIZE 00031200 
IF RECORD GTR EOFPTR OR RECORD Loo 0 THEN. GO TO ExIT3 00031300 
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. @ \e 
IF NOT OK1 THEN 00031400 
e@ BEGIN 000315C0 @ 
dat BUFFERLCO]3 202 ADRSLISADYRESSCBUFFERILOI] 22 GKISSTRUES . ..... .. 00051600 ict oh abet eotees a Rion! 

; END3 00031700 : 
@:: IF CEREAL AND NOT OK2 THEN 00031800 1@ 
ese. oo BEGIN, ati. Sloat eames ate Ne, fen Peanut See MEIN Em 615) CRE or sia| aie oe EAD UE eo ee co 3 
‘ BUFFER2(O0]%=03 ADRS2t=ADURESS(UUFFER2L0])3 OKZ3=TRUES~ 00032000 4 
@” ENDS 00032100 10 
PL IF CEREAL AND NOT VALID THEN FILLet=STRUEJ *% KEALING SERIALLY. . 00032200 . Pe ee 7 6 
: VALIDSsCEREALS 00032300 
a: ean 00032400 | hed 
8 a eee DF RECORD GEQ RMIN1 AND RECORD LEQ RMAX1 THEN 00325000 9 
a BEGIN 00032600 bi 
T BUFFERtSADRS13 00032700 "@ 
Vee some = TF NOT BOOLEANCRESULT1e€CI 9311) THEN wALTCADDRESSCRESULTI)»MASK)3. OOU32a00 ss __ fe 
My IF RESULT1e£2602] NEQ O THEN PARITYERRORCRMINI)3 00032810 I 
@: FILL12=(RECORDeRMAX{) AND CEREALS 00032900 1@ 
_ GO TO TRANSFER; .. ioth Sedefestoh (lysine tn Senet ceasns eats ae ete hc At Ps «on eet AT Oded OD Os ae tad, bie, ote taut ors ee St 8 
ENDS 00033100 ki 
e° IF CEREAL THEN IF RECORD GEG RMINZ AND RECORD LEG RMAX2 THEN 00033200 "@ 
eee Lees BEGIN... sa et ce DE ct eac seats a hee MNO SA SO ce iy pape iE eg OE a toe Ot dE! 8 
, BUFFER? sADRS23 00033400 " 

r IF NOT BOOLEANCRESU; Teel19%1)) THEN Ne baer aac ed 00933500 Wied 

AN neg Bah, Be to ca 1 IF RESULT2e0C28!2) NEG O THEN FPARITYERRORCAMINA)A OO 00033510. ou, Stile Aig Se ie al gol tea 8 8 Ds opt Bi een eae 
aa FILL2t#(RECORDSRMAX2) ANU CEREALS 00033600 2 
@- GO TO TRANSFERS 00033700 a@ 
OY te cay An. ah END3 ane woe OOO3S3B8O0 .. a al eiefi tat ete the che ae cal te 24 
ay IF NOT BOOLEANCRESULT1.61931)) THEN WAITCADORESSCRESULTI)sMASK)3 00033900 2 
@« IF RESULT1.£2882] NE@ O THEN PARITYERRORCRMING)S 00033910 @ 
Gp mon PIMLEMEPERCADRSL ARECHRDRESULTLAAMINL RMAKLIZ....__________guagaaa Sa ag ie tate a Sn BO ae ee Da 2 
ee IF CEREAL THEN 00034100 si 
@» BEGIN 00034200 231@ 
Sas TF.NOT. BOOLEANCRESULT9.£61931)) THEN WATTCAVDRESS(RESULT2)sMASK)3 OOO34300. OO . 
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a OFFSET$= CRECORD MCD RPB)XRSIZE+LS 00034900 a7 
6" MOVECRSIZEs,BUFFER+CFFSETsAL2xREALCFORMT) 23 00035000 ie 
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| BEGIN 00035300 «|@ 
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es REAL ADJsRECsSEQs.... 00037000 
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ae RESULT1 t= RESULT2 t= MASKS & INITIALIZE RESULT DESCRIPTUR 0094.48.00 
| 00044900 
@ IF MAKETABt=(QUTPUTNAME.C¥6%12]="1S" AND NOT DATAFILE) THEN 00045000 
< BEGIN Bye Ce ee eee . 00045100 
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hoo, TR CPRINTER OR PUNCH) THEN & COPY TO PRINTER CK COPY 10 PUNCH = = = = 00046600 
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SRCESEQs=IF SFLG THEN INPCUNVOCACSEQ@LUC]) ELSE LRECS 090051300 
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BEGIN 00051500 
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IF PC LSS NPARAMS THEN gu Te NEXTPARAM ELSE GO 70: “FIN[SREDS 00051600 
ENDS % SEQUENCE CHECKING 00051900 
.NCTSENCT+14 2 CUTPUT FILE RECURD COUNT oO eee ve 90952000 . 
OQUTSEQt=s 00052100 
IF MAKETAB AND NOT SFLG THEN INPCONVCACSEGLOC)) ELSE SRCESEQs 00052200 
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; ENDS & IF RESFQVENCING be SaeB Ne ot, wus aiiles ented cin tee Pls Aceh 
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BEGIN 00053300 
ERROR@2NGT BRAAKS 4 DONT PRINT ERROR IF BREAK RECEIVED 00053406 


00093500. 


OUTSEQSSFEFVSEQ423 7 “RUSUST~ “SEQUENCE NUMBER 00053510 
QOUTCONVCALCSEQLOCI]»>UUTSEN*FALSE), 0005360C 

some eEN DP. Wess a Sri te aed A _....0G05370G 
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Hoa, IF PRINTER THEN €s 00054600 
s BEGIN 00054700 
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" BEGIN 00055000 
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END 00056500 
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I WRITECNEWTABs 30eNL 4) 93 00057400 
@ « NPTR3#03 00057500 
ee ENOs tet LN, pen ase eee ee 00057600. .... 
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Bs END PROGRAM, 00059800 
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